www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Users/Users_Collection.asp
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>我的收藏</title>
<link href="style/nav.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="../conn.asp"-->
<!--#include file="../Function/Function.asp"-->
<!--#include file="../function/Page.asp" -->
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" valign="top"><table width="690" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="43" background="images/user_top.gif"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="6%"> </td>
<td width="94%">我的收藏</td>
</tr>
</table></td>
</tr>
</table><br />
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td bgcolor="#f7f7f7"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="login">
<tr>
<td><br />
<%Action=Trim(request("Action"))
IF Request.Cookies("YWNTUserCookie")("UserName")="" Then Action="UsersLogin"
Select Case Action
Case "UsersLogin"
call UsersLogin()
Case "Del"
call Del()
Case else
call List()
End Select
sub Del()
conn.execute "delete from YWNT_TMS_UsersCollection WHERE ID ="&NoSqlHack(Request.QueryString("ID"))&""
Response.Write("<script>alert('您收藏的该影片成功删除!');location.href = '"&Request.ServerVariables("HTTP_REFERER")&"';</script>")
End sub
sub List()%>
<div align="center">用户：<%=Request.Cookies("YWNTUserCookie")("UserName")%></div>
<table cellspacing="3" cellpadding="1" width="100%" border="0">
<tbody>
<tr align="middle">
<td height="25" align="left" bgcolor="#E3E3E3"><div align="center">影片名称</div></td>
<td width="20%" align="left" bgcolor="#E3E3E3"><div align="center">栏目</div></td>
<td width="20%" align="left" bgcolor="#E3E3E3"><div align="center">收藏时间</div></td>
<td width="10%" align="left" bgcolor="#E3E3E3"><div align="center">删除</div></td>
</tr>
<% Dim int_RPP
int_RPP=20 '设置每页显示数目
Set Rs = server.CreateObject(YWNT_TMS_RS)
sql="Select * from YWNT_TMS_UsersCollection Where CollectionUsers='"&Request.Cookies("YWNTUserCookie")("UserName")&"' Order by ID desc"
Rs.open sql,Conn,1,1
if Rs.eof then
Response.Write"<TR><TD colspan=""4"" bgcolor=""#F7F7F7"" height=""40"">没有记录。</TD></TR>"
else
Rs.PageSize=int_RPP
cPageNo=NoSqlHack(Request.QueryString("Page"))
If cPageNo="" Then cPageNo = 1
If not isnumeric(cPageNo) Then cPageNo = 1
cPageNo = Clng(cPageNo)
If cPageNo>Rs.PageCount Then cPageNo=Rs.PageCount
If cPageNo<=0 Then cPageNo=1
Rs.AbsolutePage=cPageNo
for i=1 to int_RPP
if Rs.eof Then exit For %>
<tr align="middle">
<td height="25" align="center" bgcolor="#F7F7F7"><%if GetConfig("WebHtmlMode")="asp" then%><a href="../Movie.asp?ID=<%=RS("CollectionMoiveID")%>" target="_blank">
<%else%><a href="../<%=GetConfig("HtmlDIr")%>/Movie_<%=RS("CollectionMoiveID")%>.<%=GetConfig("WebHtmlMode")%>" target="_blank"><%end if%><%=CollectionMoive("MovieName",RS("CollectionMoiveID"))%></a></td>
<td align="center" bgcolor="#F7F7F7"><%=CollectionClassName(CollectionMoive("TypeID",RS("CollectionMoiveID")))%></td>
<td align="center" bgcolor="#F7F7F7"><%=RS("CollectionDate")%></td>
<td align="center" bgcolor="#F7F7F7"><a href="Users_Collection.asp?Action=Del&ID=<%=RS("ID")%>">删除</a></td>
</tr>
<%Rs.MoveNext
next
end if%>
<tr align="right">
<td height="40" colspan="4" bgcolor="#F7F7F7"><% response.Write fPageCount(Rs,cPageNo) %></td>
</tr>
</tbody>
</table>
<%
RS.Close
Set RS = Nothing
End sub%>
<br>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%call connclose()%>
</body>
</html>